Sub Main()	dim n as string	foreach n in list("jose", "joe", "lourdes", "cuevas")		msgbox(n)	next	msgbox("Exit with value: " & n)	dim i as integer			foreach i in list(5,6,7,8,9,10)		msgbox("Value of i: " & i)	next	msgbox("Exit with value: " & i)		msgbox("Testing range")	foreach i in range(30,45)		msgbox("Value of i: " & i)	next	msgbox("Testing regular For")	for i = 0 to 5		msgbox("Value of i: " & i)	next	msgbox("Exit with value: " & i)End Sub 